home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aav.d64 / gulliver (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  20KB  |  1,041 lines
  1. 1 REM INTERACTIVE PROGRAM-RICK ANDING
  2. 2 DATA "G","U","L","L","I","V","E","R"
  3. 5 DATA ROME,1,CARTERSVILLE,1,KENNESAW,1
  4. 10 DATA MARIETTA,1,ATLANTA,1,EAST POINT,1
  5. 11 DATA COLLEGE PARK,1
  6. 15 DATA UNION CITY,1,FAIRBURN,1,PALMETTO,1
  7. 20 DATA TYRONE,1,PEACHTREE CITY,1,FAYETTEVILLE,1
  8. 25 DATA WOOLSEY,1,NEWNAN,1,MADRAS,1
  9. 30 DATA RIVERDALE,1,JONESBORO,1,MORROW,1
  10. 35 DATA FORREST PARK,1,CONLEY,1,DECATUR,1
  11. 40 DATA STONE MOUNTAIN,1,WINDER,1,ATHENS,1
  12. 45 DATA MONROE,1,GAINESVILLE,1,FLOWERY BRANCH,1
  13. 50 DATA BUFORD,1,MACON,1,WARNER ROBBINS,1
  14. 55 DATA DUBLIN,1,COLUMBUS,1,FORT BENNING,1
  15. 60 DATA ALBANY,1,VALDOSTA,1,THOMASVILLE,1
  16. 65 DATA AUGUSTA,1,FORT GORDON,1,SAVANNAH,1
  17. 70 DATA BRUNSWICK,1,SAINT SIMONS,1,PENSACOLA,2
  18. 75 DATA TALLAHASSEE,2,PANAMA CITY,2,PERRY,2
  19. 80 DATA JACKSONVILLE,2,GAINESVILLE,2,DAYTONA,2
  20. 85 DATA ORLANDO,2,MELBOURNE,2,VERO BEACH,2
  21. 90 DATA WEST PALM,2,FORT LAUDERDALE,2,MIAMI,2
  22. 95 DATA HIALEAH,2,MIAMI SPRINGS,2,SARASOTA,2,TAMPA,2
  23. 100 DATA CLEARWATER,2,ASHVILLE,3,CHARLOTTE,3
  24. 105 DATA WINSTON SALEM,3,GREENSBORO,3,RALEIGH,3
  25. 106 DATA FAYETTEVILLE,3,GOLDSBORO,3
  26. 108 DATA ANDERSON,4,GREENVILLE,4,SPARTINBURG,4,COLUMBIA,4
  27. 110 DATA SUMPTER,4,FLORENCE,4,MYRTLE BEACH,4,GEORGETOWN,4
  28. 112 DATA AIKEN,4,ORANGEBURG,4,CHARLESTON,4,HILTON HEAD,4
  29. 114 DATA BEAUFORT,4,MEMPHIS,5,MILLINGTON,5,NASHVILLE,5
  30. 116 DATA MURFREESBORO,5,CHATTANOOGA,5,MARYVILLE,5,KNOXVILLE
  31. 118 DATA 5,OAK RIDGE,5,JEFFERSON CITY,5,JOHNSON CITY,5
  32. 120 DATA KINGSPORT,5,BRISTOL,5,GATLINBURG,5,PIGEON FORGE
  33. 122 DATA 5,PHOENIX CITY,6,OPELIKA,6,MONTGOMERY,6,SELMA,6
  34. 124 DATA TUSCALOOSA,6,BESSIMER,6,BIRMINGHAM,6,ANNISTON,6
  35. 126 DATA GADSDEN,6,MOBILE,6,ATMORE,6,DOTHAN,6,OZARK,6
  36. 128 DATA HUNTSVILLE,6,DECATUR,6,FLORENCE,6
  37. 135 GOSUB 9000
  38. 136 DATA XX
  39. 137 POKE 53280,6:GOSUB 10000
  40. 138 PRINT"[147]":FOR X=1 TO 2000:NEXT
  41. 140 PRINT "HELLO..MY NAME IS GULLIVER"
  42. 145 GOSUB 5000
  43. 150 PRINT "I AM AN INTERACTIVE COMPUTER PROGRAM"
  44. 155 GOSUB 5000
  45. 160 INPUT "WHAT IS YOUR FIRST NAME";NA$
  46. 165 GOSUB 5000
  47. 170 PRINT "GLAD TO MEET YOU, ";NA$
  48. 175 GOSUB 5000
  49. 180 INPUT"WHAT CITY DO YOU LIVE IN";CI$
  50. 190 READ PL$
  51. 200 IF PL$=CI$ GOTO 225
  52. 210 IF PL$="XX" GOTO 400
  53. 220 GOTO 190
  54. 225 GOSUB 5000
  55. 230 PRINT "OH..I'VE BEEN THERE."
  56. 235 GOSUB 5000
  57. 240 PRINT "THAT'S IN ";
  58. 245 READ T
  59. 250 GOSUB 3000
  60. 260 READ NR$
  61. 265 GOSUB 5000
  62. 270 PRINT "I BELIEVE ";CI$;" IS CLOSE TO "
  63. 280 PRINT NR$;:INPUT " ISNT IT";AN$
  64. 290 IF AN$="NO" GOTO 315
  65. 295 GOSUB 5000
  66. 300 PRINT "I THOUGHT SO."
  67. 310 GOTO 600
  68. 315 GOSUB 5000
  69. 320 PRINT "WELL..IT'S NOT TOO FAR AWAY."
  70. 325 GOSUB 5000
  71. 330 PRINT "BUT LET'S GO ON..."
  72. 340 GOTO 600
  73. 400 GOSUB 5000
  74. 410 PRINT"I'M NOT FAMILIAR WITH ";CI$
  75. 415 GOSUB 5000
  76. 420 INPUT "WHAT BIG CITY IS IT NEAR";CB$
  77. 430 RESTORE
  78. 440 READ PB$
  79. 450 IF PB$=CB$ GOTO 475
  80. 460 IF PB$="XX" GOTO 525
  81. 470 GOTO 440
  82. 475 GOSUB 5000
  83. 480 PRINT "NOW ";CB$; " I'M FAMILIAR WITH."
  84. 485 GOSUB 5000
  85. 490 READ T
  86. 500 PRINT "THAT'S IN ";
  87. 510 GOSUB 3000
  88. 520 GOTO 600
  89. 525 GOSUB 5000
  90. 530 PRINT "THAT'S STILL NO HELP."
  91. 535 GOSUB 5000
  92. 540 PRINT "MAYBE I'M NOT SUCH A SMART COMPUTER."
  93. 545 GOSUB 5000
  94. 550 PRINT "WHAT STATE IS ";CI$;:INPUT " IN";ST$
  95. 555 GOSUB 5000
  96. 560 PRINT "WELL AT LEAST I'VE HEARD OF ";ST$
  97. 565 GOSUB 5000
  98. 570 PRINT "BUT MOVING RIGHT ALONG..."
  99. 600 GOSUB 5000
  100. 610 PRINT "NOW FOR A REALLYHARD QUESTION, ";NA$;","
  101. 615 GOSUB 5000
  102. 620 INPUT "WHAT IS YOUR LAST NAME";NB$
  103. 625 GOSUB 5000
  104. 630 PRINT NA$;" ";NB$;", THAT'S NICE."
  105. 635 GOSUB 5000
  106. 640 PRINT "ARE YOU RELATED TO BEAUREGARD ";NB$".."
  107. 650 INPUT "THE FAMOUS CIVIL WAR HORSE THIEF";AN$
  108. 670 IF AN$="NO" GOTO 700
  109. 675 GOSUB 5000
  110. 679 PRINT "I THOUGHT YOU LOOKED FAMILIAR!"
  111. 680 GOSUB 5000
  112. 681 PRINT "HE WAS ALSO FROM ";CI$;"."
  113. 682 FOR X=1 TO 600:NEXT
  114. 690 GOTO 715
  115. 700 GOSUB 5000
  116. 710 PRINT "WELL, IT'S AMAZING HOW MUCH "
  117. 712 PRINT "YOU LOOK LIKE HIM! "
  118. 713 GOSUB 5000
  119. 714 PRINT "HE WAS FROM ";CI$;" TOO."
  120. 715 GOSUB 5000
  121. 717 PRINT NA$; ", HOW MANY BROTHERS AND SISTERS";
  122. 720 INPUT " DO YOU  HAVE";R
  123. 721 IF R=0 GOTO 782
  124. 725 GOSUB 5000
  125. 730 INPUT "HOW MANY OF THEM ARE SISTERS";S
  126. 740 B=R-S
  127. 745 GOSUB 5000
  128. 750 PRINT "THEN IT'S SAFE TO ASSUME THAT YOU HAVE "
  129. 751 IF B=1 GOTO 765
  130. 760 PRINT B; " BROTHERS."
  131. 761 GOTO 785
  132. 765 PRINT "ONLY ONE BROTHER."
  133. 766 GOTO 785
  134. 770 IF B=0 GOTO 785
  135. 781 GOTO 785
  136. 782 B=0
  137. 783 S=0
  138. 785 GOSUB 5000
  139. 850 PRINT "OK, LET'S MOVE ON.."
  140. 860 RESTORE
  141. 865 GOSUB 5000
  142. 870 PRINT "HAVE YOU LIVED IN ";CI$;
  143. 880 INPUT " ALL YOUR LIFE"; AN$
  144. 889 IF AN$="NO"GOTO 895
  145. 890 GOSUB 5000
  146. 891 PRINT "HAVEN'T BEEN AROUND MUCH, HAVE YOU, ";NA$
  147. 893 GOTO 1030
  148. 895 GOSUB 5000
  149. 900 INPUT "WHERE ELSE HAVE YOU LIVED";CP$
  150. 910 READ PP$
  151. 920 IF CP$=PP$ GOTO 945
  152. 930 IF PP$="XX" GOTO 1015
  153. 940 GOTO 910
  154. 945 GOSUB 5000
  155. 950 PRINT CP$; ", THAT'S NOT TOO FAR FROM "
  156. 960 READ P
  157. 970 READ NP$
  158. 980 PRINT NP$
  159. 985 GOSUB 5000
  160. 990 PRINT " OF COURSE THEY'RE BOTH IN ";
  161. 1000 GOSUB 2950
  162. 1005 GOSUB 5000
  163. 1010 GOTO 1030
  164. 1015 PRINT "NEVER HEARD OF IT!"
  165. 1030 GOSUB 5000:PRINT"[147]":FOR X=1 TO 2000:NEXT
  166. 1040 PRINT " WELL, SO FAR I'VE FOUND OUT:"
  167. 1045 PRINT
  168. 1050 PRINT "  1. YOUR NAME IS ";NA$;" ";NB$
  169. 1055 PRINT
  170. 1060 PRINT "  2. YOU LIVE IN "CI$:PRINT
  171. 1061 PRINT
  172. 1062 IF B=0 AND S=0 GOTO 1077
  173. 1063 IF B=1 AND S=1 GOTO 1068
  174. 1065 IF S=1 GOTO 1072
  175. 1066 IF B=1 GOTO 1074
  176. 1067 GOTO 1070
  177. 1068 PRINT "YOU HAVE ONE BROTHER AND ONE SISTER"
  178. 1069 GOTO 1078
  179. 1070 PRINT "  3. YOU HAVE";B;"BROTHERS AND";S;"SISTERS"
  180. 1071 GOTO 1075
  181. 1072 PRINT "  3. YOU HAVE";B;"BROTHERS AND 1 SISTER"
  182. 1073 GOTO 1075
  183. 1074 PRINT "YOU HAVE 1 BROTHER AND";S;"SISTERS"
  184. 1075 PRINT
  185. 1076 GOTO 1080
  186. 1077 PRINT "  3. YOU HAVE NO BROTHERS OR SISTERS
  187. 1078 [153]
  188. 1080 [139] AN$[178]"NO" [137] 1110
  189. 1090 [153] "  4.  YOU LIVED IN ";CI$
  190. 1095 [153] "      ALL YOUR LIFE."
  191. 1100 [137] 1115
  192. 1105 [153]
  193. 1110 [153] "  4.  YOU USED TO LIVE IN ";CP$
  194. 1115 [153]
  195. 1120 [153] "  5. AND YOU HAVE AN AMAZING "
  196. 1130 [153] "     RESEMBLANCE TO BEAUREGARD ";NB$","
  197. 1140 [153] "     A HORSE MERCHANT OF QUESTIONABLE"
  198. 1145 [153] "     MORALS."
  199. 1146 [153]:[153]:[153]:[153]"   NOW, TO FIND OUT HOW SMART YOU ARE...
  200. 1147 FOR X=1 TO 9000:NEXT
  201. 1150 PRINT:PRINT
  202. 1160 PRINT "SINCE YOU'VE LIVED IN ";SX$;", WOULD YOU"
  203. 1170 PRINT "LIKE TO TAKE A ";SX$;" ";
  204. 1180 INPUT "QUIZ";AN$
  205. 1190 IF AN$="NO" GOTO 1950
  206. 1192 GOSUB 5000
  207. 1195 PRINT "ANSWER THESE QUESTIONS WITH THE"
  208. 1196 PRINT "APPROPRIATE LETTER:"
  209. 1200 IF SX$="FLORIDA" GOTO 1510
  210. 1205 IF SX$="NORTH CAROLINA" GOTO 1730
  211. 1210 IF SX$="SOUTH CAROLINA" GOTO 2230
  212. 1215 IF SX$="TENNESSEE" GOTO 2510
  213. 1220 IF SX$="ALABAMA" GOTO 2730
  214. 1225 FOR X=1 TO 3300:NEXT
  215. 1230 PRINT TAB(240)"WHAT IS THE STATE CAPITAL ";
  216. 1231 PRINT "OF GEORGIA?"
  217. 1235 PRINT:PRINT:PRINT:PRINT
  218. 1240 PRINT "A- MARTHASVILLE"
  219. 1245 PRINT:PRINT:PRINT
  220. 1250 PRINT "B- CARTERSVILLE"
  221. 1255 PRINT:PRINT:PRINT
  222. 1260 PRINT "C- ATLANTA"
  223. 1265 PRINT:PRINT:PRINT
  224. 1270 PRINT "D- FAIRBURN"
  225. 1271 PRINT:PRINT
  226. 1276 INPUT "ANSWER-";A$
  227. 1280 IF A$="C"GOTO 1310
  228. 1290 GOSUB 7000
  229. 1300 A=0
  230. 1302 PRINT:PRINT:PRINT:PRINT:PRINT
  231. 1304 PRINT "THE RIGHT ANSWER IS C-ATLANTA"
  232. 1306 GOSUB 5000
  233. 1307 GOSUB 5000
  234. 1308 PRINT"LET'S TRY ANOTHER ONE..."
  235. 1309 GOTO 1320
  236. 1310 GOSUB 6000
  237. 1311 GOSUB5000
  238. 1312 PRINT "YOU'RE  1 FOR 1"
  239. 1314 GOSUB 5000
  240. 1315 A=1
  241. 1316 PRINT "LET'S TRY ANOTHER ONE..."
  242. 1318 FOR X=1 TO 2000:NEXT
  243. 1320 GOSUB 5000:PRINT"[147]":GOSUB8000
  244. 1321 PRINT"WHAT CITY IN GEORGIA HAS "
  245. 1322 PRINT "THE HIGHEST ALTITUDE?"
  246. 1324 PRINT:PRINT:PRINT:PRINT
  247. 1326 PRINT "A- ATLANTA"
  248. 1327 PRINT:PRINT
  249. 1328 PRINT "B- BRASSTOWN BALD"
  250. 1329 PRINT:PRINT
  251. 1330 PRINT "C- CARTERSVILLE"
  252. 1331 PRINT:PRINT
  253. 1332 PRINT "D- JASPER"
  254. 1334 PRINT:PRINT:PRINT
  255. 1335 INPUT "ANSWER-";A$
  256. 1380 IF A$="B" GOTO 1392
  257. 1382 GOSUB 7000
  258. 1384 B=0
  259. 1386 PRINT:PRINT:PRINT:PRINT:PRINT
  260. 1388 PRINT "THE RIGHT ANSWER IS B- BRASSTOWN BALD"
  261. 1390 GOTO 1396
  262. 1392 GOSUB 6000
  263. 1394 B=1
  264. 1396 Y=A+B
  265. 1398 GOSUB 5000
  266. 1400 PRINT "SO FAR YOU'RE ";Y;" FOR 2"
  267. 1402 GOSUB 5000
  268. 1404 PRINT "LET'S TRY ANOTHER..."
  269. 1405 FOR X=1 TO 1200:NEXT
  270. 1406 GOSUB 5000:PRINT "[147]":GOSUB8000
  271. 1408 PRINT "NEAR WHAT CITY IS FORT GORDON LOCATED?"
  272. 1410 PRINT:PRINT:PRINT:PRINT
  273. 1412 PRINT "A- AUGUSTA"
  274. 1413 PRINT:PRINT
  275. 1414 PRINT "B- COLUMBUS"
  276. 1416 PRINT:PRINT
  277. 1418 PRINT "C- MACON"
  278. 1420 PRINT:PRINT
  279. 1422 PRINT "D- ATLANTA"
  280. 1424 PRINT:PRINT:PRINT
  281. 1426 INPUT "ANSWER-";A$
  282. 1428 IF A$="A" GOTO 1438
  283. 1430 GOSUB 7000
  284. 1432 C=0
  285. 1434 PRINT "THE CORRECT ANSWER IS A- AUGUSTA"
  286. 1436 GOTO 1442
  287. 1438 GOSUB 6000
  288. 1440 C=1
  289. 1442 Y=A+B+C
  290. 1446 GOSUB 5000
  291. 1448 PRINT "YOUR SCORE IS NOW";Y;"FOR 3"
  292. 1450 GOSUB 5000
  293. 1452 PRINT "THIS IS THE LAST QUESTION"
  294. 1454 PRINT "SO MAKE SURE YOU GET IT RIGHT.."
  295. 1456 FOR X=1 TO 800:NEXT
  296. 1458 GOSUB 5000:PRINT"[147]":GOSUB8000
  297. 1460 PRINT "WHAT GA. CITY IS KNOWN AS THE"
  298. 1462 PRINT "CARPET CAPITAL?"
  299. 1464 PRINT:PRINT:PRINT:PRINT
  300. 1466 PRINT "A- GAINESVILLE"
  301. 1468 PRINT:PRINT
  302. 1470 PRINT "B- WAYCROSS"
  303. 1472 PRINT:PRINT
  304. 1474 PRINT "C- CHATSWORTH"
  305. 1476 PRINT:PRINT
  306. 1478 PRINT "D- DALTON"
  307. 1480 PRINT:PRINT:PRINT
  308. 1482 INPUT "ANSWER-";A$
  309. 1484 IF A$="D" GOTO 1496
  310. 1486 GOSUB 7000
  311. 1488 D=0
  312. 1489 PRINT:PRINT:PRINT:PRINT:PRINT
  313. 1490 PRINT "THE RIGHT ANSWER IS D- DALTON"
  314. 1491 FOR X=1 TO 2000:NEXT
  315. 1492 GOTO 1498
  316. 1496 GOSUB 6000
  317. 1497 D=1
  318. 1498 FOR X=1 TO 2000:NEXT:PRINT:Y=A+B+C+D
  319. 1499 PRINT "YOUR FINAL SCORE IS";Y;"FOR 4!"
  320. 1500 FOR X=1 TO 2000:NEXT
  321. 1502 GOTO 1950
  322. 1510 FOR X=1 TO 2500:NEXT
  323. 1511 PRINT TAB(240)"WHAT IS THE STATE CAPITAL OF FLORIDA?"
  324. 1512 PRINT:PRINT:PRINT:PRINT:PRINT
  325. 1514 PRINT "A- MIAMI"
  326. 1516 PRINT:PRINT
  327. 1518 PRINT "B- GAINESVILLE"
  328. 1520 PRINT:PRINT
  329. 1522 PRINT "C- TALLAHASSEE"
  330. 1524 PRINT:PRINT
  331. 1526 PRINT "D- JACKSONVILLE"
  332. 1528 PRINT:PRINT:PRINT:PRINT
  333. 1530 INPUT "ANSWER-";A$
  334. 1532 IF A$="C"GOTO 1544
  335. 1534 GOSUB 7000
  336. 1536 A=0
  337. 1538 PRINT:PRINT:PRINT:PRINT:PRINT
  338. 1540 PRINT "THE RIGHT ANSWER IS C-TALLAHASSEE."
  339. 1542 GOTO 1548
  340. 1544 GOSUB 6000
  341. 1546 A=1
  342. 1548 Y=A
  343. 1550 GOSUB 5000
  344. 1552 PRINT "SO FAR YOU'RE";Y;"FOR 1"
  345. 1554 GOSUB 5000
  346. 1556 PRINT "LETS TRY ANOTHER..."
  347. 1558 FOR X=1 TO 2000:NEXT
  348. 1560 PRINT"[147]":GOSUB8000
  349. 1562 PRINT "WHAT IS THE LARGEST CITY IN FLORIDA?"
  350. 1564 PRINT:PRINT:PRINT:PRINT
  351. 1566 PRINT "A- MIAMI"
  352. 1568 PRINT:PRINT
  353. 1570 PRINT "B- JACKSONVILLE"
  354. 1572 PRINT:PRINT
  355. 1574 PRINT "C- TAMPA"
  356. 1576 PRINT:PRINT
  357. 1578 PRINT "D- ORLANDO"
  358. 1580 PRINT:PRINT:PRINT
  359. 1582 INPUT "ANSWER-";A$
  360. 1584 IF A$="B" GOTO 1596
  361. 1586 GOSUB 7000
  362. 1588 B=0
  363. 1590 PRINT:PRINT:PRINT:PRINT:PRINT
  364. 1592 PRINT "THE CORRECT ANSWER IS B- JACKSONVILLE"
  365. 1594 GOTO 1600
  366. 1596 GOSUB 6000
  367. 1598 B=1
  368. 1600 Y=A+B
  369. 1610 GOSUB 5000
  370. 1620 PRINT "SO FAR YOU'RE";Y;"FOR 2"
  371. 1622 GOSUB 5000
  372. 1624 PRINT "LET'S TRY ANOTHER..."
  373. 1625 FOR X=1 TO 2000:NEXT
  374. 1628 PRINT"[147]":GOSUB 8000
  375. 1630 PRINT "WHAT IS THE OLDEST CITY IN FLORIDA?"
  376. 1632 PRINT:PRINT:PRINT:PRINT
  377. 1634 PRINT "A- ST. AUGUSTINE"
  378. 1636 PRINT:PRINT
  379. 1638 PRINT "B- TALAHASSEE"
  380. 1640 PRINT:PRINT
  381. 1642 PRINT "C- FORT PIERCE"
  382. 1644 PRINT:PRINT
  383. 1646 PRINT "D- FORT LAUDERDALE"
  384. 1648 PRINT:PRINT:PRINT
  385. 1650 INPUT "ANSWER-";A$
  386. 1652 IF A$="A" GOTO 1664
  387. 1654 GOSUB 7000
  388. 1656 C=0
  389. 1658 PRINT:PRINT:PRINT:PRINT:PRINT
  390. 1660 PRINT "THE RIGHT ANSWER IS  A- ST. AUGUSTINE"
  391. 1662 GOTO 1668
  392. 1664 GOSUB 6000
  393. 1666 C=1
  394. 1668 Y=A+B+C
  395. 1669 GOSUB 5000
  396. 1670 PRINT "YOUR SCORE IS NOW";Y;"FOR 3
  397. 1672 [141] 5000
  398. 1674 [153] "THIS IS THE LAST QUESTION "
  399. 1676 [153] "SO MAKE SURE YOU GET IT RIGHT!"
  400. 1678 [129] X[178]1 [164] 2000:[130]
  401. 1680 [153] "LOAD":[141]8000
  402. 1682 [153] "WHAT IS THE LARGEST LAKE IN FLORIDA?"
  403. 1684 [153]:[153]:[153]:[153]
  404. 1686 [153] "A- LAKE PLACID"
  405. 1688 [153]:[153]
  406. 1690 [153] "B- LAKE GEORGE"
  407. 1692 [153]:[153]
  408. 1694 [153] "C- LAKE SUWANNEE"
  409. 1696 [153]:[153]
  410. 1698 [153] "D- LAKE OKEECHOBEE"
  411. 1700 [153]:[153]:[153]
  412. 1702 [133] "ANSWER-";A$
  413. 1704 [139] A$[178]"D" [137] 1716
  414. 1706 [141] 7000
  415. 1708 D[178]0
  416. 1710 [153]:[153]:[153]:[153]:[153]
  417. 1712 [153] "THE RIGHT ANSWER IS D- OKEECHOBEE"
  418. 1714 [137] 1720
  419. 1716 [141] 6000
  420. 1718 D[178]1
  421. 1720 [153]:Y[178]A[170]B[170]C[170]D
  422. 1722 [141] 5000
  423. 1724 [153] "YOUR FINAL SCORE IS";Y;"FOR 4!"
  424. 1726 [129] X[178]1  [164] 2000:[130]
  425. 1728 [137] 1950
  426. 1730 [129] X[178]1 [164] 3300:[130]
  427. 1740 [153] [163]240)"WHAT IS THE STATE CAPITAL OF N.CAROLINA?"
  428. 1742 [153]:[153]:[153]:[153]:[153]
  429. 1744 [153] "A- RALEIGH"
  430. 1746 [153]:[153]
  431. 1748 [153] "B- WINSTON-SALEM"
  432. 1750 [153]:[153]
  433. 1752 [153] "C- CHARLOTTE"
  434. 1754 [153]:[153]
  435. 1756 [153] "D- ASHVILLE"
  436. 1758 [153]:[153]:[153]:[153]
  437. 1760 [133] "ANSWER-";A$
  438. 1762 [139] A$[178]"A" [137] 1774
  439. 1764 [141] 7000
  440. 1766 A[178]0
  441. 1768 [153]:[153]:[153]:[153]:[153]
  442. 1770 [153] "THE CORRECT ANSWER IS  A- RALEIGH"
  443. 1772 [137] 1778
  444. 1774 [141] 6000
  445. 1776 A[178]1
  446. 1778 [141] 5000
  447. 1780 [153] "SO FAR YOU'RE";A;"FOR 1"
  448. 1782 [141] 5000
  449. 1784 [153] "LET'S TRY AGAIN..."
  450. 1786 [129] X[178]1 [164] 2000:[130]
  451. 1788 [153] "LOAD":[141] 8000
  452. 1790 [153] "WHAT IS THE LARGEST CITY IN N.CAROLINA?"
  453. 1792 [153]:[153]:[153]:[153]
  454. 1794 [153] "A- RALEIGH"
  455. 1796 [153]:[153]
  456. 1798 [153] "B- ASHVILLE"
  457. 1800 [153]:[153]
  458. 1802 [153] "C- GREENSBORO"
  459. 1804 [153]:[153]
  460. 1806 [153] "D- CHARLOTTE"
  461. 1808 [153]:[153]:[153]
  462. 1810 [133] "ANSWER-";A$
  463. 1812 [139] A$[178]"D" [137] 1824
  464. 1814 [141] 7000
  465. 1816 B[178]0
  466. 1818 [153]:[153]:[153]:[153]:[153]
  467. 1820 [153] "THE RIGHT ANSWER IS  D- CHARLOTTE"
  468. 1822 [137] 1828
  469. 1824 [141] 6000
  470. 1826 B[178]1
  471. 1828 Y[178]A[170]B
  472. 1830 [141] 5000
  473. 1832 [153] "YOUR SCORE IS NOW";Y;"FOR 2"
  474. 1834 [141] 5000
  475. 1836 [153] "LETS TRY 2 MORE..."
  476. 1838 [129] X[178]1 [164] 2000:[130]
  477. 1840 [153] "LOAD":[141]8000
  478. 1842 [153] "IN WHAT CITY IS THE VANDERBILT'S "
  479. 1844 [153] "BILTMORE HOUSE LOCATED?"
  480. 1846 [153]:[153]:[153]:[153]
  481. 1848 [153] "A- CHARLOTTE"
  482. 1850 [153]:[153]
  483. 1852 [153] "B- ASHVILLE"
  484. 1854 [153]:[153]
  485. 1856 [153] "C- GOLDSBORO"
  486. 1858 [153]:[153]
  487. 1860 [153] "D- WINSTON-SALEM"
  488. 1862 [153]:[153]:[153]
  489. 1864 [133] "ANSWER-";A$
  490. 1866 [139] A$[178]"B" [137] 1878
  491. 1868 [141] 7000
  492. 1870 C[178]0
  493. 1872 [153]:[153]:[153]:[153]:[153]
  494. 1874 [153] "THE RIGHT ANSWER IS  B- ASHVILLE"
  495. 1876 [137] 1882
  496. 1878 [141] 6000
  497. 1880 C[178]1
  498. 1882 [141] 5000
  499. 1884 Y[178]A[170]B[170]C
  500. 1886 [153] "THE SCORE IS NOW";Y;"FOR 3!"
  501. 1888 [141] 5000
  502. 1890 [153] "THIS IS THE LAST QUESTION."
  503. 1892 [129] X[178]1 [164] 2000:[130]
  504. 1894 [153] "LOAD":[141]8000
  505. 1896 [153] "THIS SHOULD BE EASY...."
  506. 1898 [153] "WHAT CITY IS FAMOUS FOR IT'S CIGARETTES?"
  507. 1900 [153]:[153]:[153]:[153]
  508. 1902 [153] "A- GOLDSBORO"
  509. 1904 [153]:[153]
  510. 1906 [153] "B- WINTON-SALEM"
  511. 1908 [153]:[153]
  512. 1910 [153] "C- LUNGHURTINGHAM"
  513. 1912 [153]:[153]
  514. 1914 [153] "D- RALEIGH"
  515. 1916 [153]:[153]:[153]
  516. 1918 [133] "ANSWER-";A$
  517. 1920 [139] A$[178]"B" [137] 1932
  518. 1922 [141] 7000
  519. 1924 D[178]0
  520. 1926 [153]:[153]:[153]:[153]:[153]
  521. 1928 [153] "THE RIGHT ANSWER IS  B- WINSTON-SALEM"
  522. 1930 [137] 1936
  523. 1932 [141] 6000
  524. 1934 D[178]1
  525. 1936 [153]:Y[178]A[170]B[170]C[170]D
  526. 1938 [141] 5000
  527. 1940 [153] "YOUR FINAL SCORE IS";Y;"FOR 4!"
  528. 1950 [129] X[178]1 [164] 1200:[130]
  529. 1952 [153]"LOAD"
  530. 1953 [129] X[178]1 [164] 750:[130]
  531. 1954 [153] "IF YOU WOULD LIKE TO TRY ANY OF"
  532. 1956 [153] "THE OTHER QUIZZES, SELECT A LETTER"
  533. 1958 [153]
  534. 1960 [153] "A- GEORGIA QUIZ"
  535. 1962 [153]
  536. 1964 [153] "B- FLORIDA QUIZ"
  537. 1966 [153]
  538. 1968 [153] "C- NORTH CAROLINA QUIZ"
  539. 1970 [153]
  540. 1972 [153] "D- SOUTH CAROLINA QUIZ"
  541. 1974 [153]
  542. 1976 [153] "E- TENNESSEE QUIZ"
  543. 1978 [153]
  544. 1979 [153] "F- ALABAMA QUIZ"
  545. 1980 [153]
  546. 1981 [153] "G- NO THANK YOU"
  547. 1982 [153]:[153]:[153]
  548. 1983 [133] "SELECTION-";A$
  549. 1985 [153]:[153]:[153]:[153]
  550. 1986 [139] A$[178]"A" [137] 1225
  551. 1987 [139] A$[178]"B" [137] 1510
  552. 1988 [139] A$[178]"C" [137] 1730
  553. 1989 [139] A$[178]"D" [137] 2225
  554. 1990 [139] A$[178]"E" [137] 2510
  555. 1991 [139] A$[178]"F" [137] 2730
  556. 1992 [141]8000:[153]"LOAD":[129] X[178]1 [164] 1800:[130]
  557. 1993 [153]"WELL, ";NA$;", IT'S BEEN A PLEASURE"
  558. 1994 [153] "TALKING WITH YOU AND GETTING TO KNOW"
  559. 1996 [153] "YOU.  ANY TIME YOU WANT TO TEST YOUR"
  560. 1998 [153] "SKILL, JUST PULL OUT MY FLOPPY DISK"
  561. 2000 [153] "MEMORY STORAGE. IT'S BEEN FUN..."
  562. 2002 [153]:[153]:[153]:[153]
  563. 2004 [153] "BYE BYE!"
  564. 2005 [128]
  565. 2225 [129] X[178]1 [164] 3300:[130]
  566. 2230 [153] [163]240)"WHAT IS THE STATE CAPITAL ";
  567. 2231 [153] "OF S.CAROLINA?"
  568. 2235 [153]:[153]:[153]:[153]
  569. 2240 [153] "A- GREENVILLE"
  570. 2245 [153]:[153]:[153]
  571. 2250 [153] "B- CHARLESTON"
  572. 2255 [153]:[153]:[153]
  573. 2260 [153] "C- COLUMBIA"
  574. 2265 [153]:[153]:[153]
  575. 2270 [153] "D- FLORENCE"
  576. 2271 [153]:[153]
  577. 2276 [133] "ANSWER-";A$
  578. 2280 [139] A$[178]"C"[137] 2310
  579. 2290 [141] 7000
  580. 2300 A[178]0
  581. 2302 [153]:[153]:[153]:[153]:[153]
  582. 2304 [153] "THE RIGHT ANSWER IS C- COLUMBIA"
  583. 2306 [141] 5000
  584. 2307 [141] 5000
  585. 2308 [153]"LET'S TRY ANOTHER ONE..."
  586. 2309 [137] 2320
  587. 2310 [141] 6000
  588. 2311 [141]5000
  589. 2312 [153] "YOU'RE  1 FOR 1"
  590. 2314 [141] 5000
  591. 2315 A[178]1
  592. 2316 [153] "LET'S TRY ANOTHER ONE..."
  593. 2318 [129] X[178]1 [164] 2000:[130]
  594. 2320 [141] 5000:[153]"LOAD":[141]8000
  595. 2321 [153]"IN WHAT CITY IS FORT SUMPTER,OF"
  596. 2322 [153] "CIVIL WAR FAME LOCATED?"
  597. 2324 [153]:[153]:[153]:[153]
  598. 2326 [153] "A- COLUMBIA"
  599. 2327 [153]:[153]
  600. 2328 [153] "B- CHARLESTON"
  601. 2329 [153]:[153]
  602. 2330 [153] "C- SENECA"
  603. 2331 [153]:[153]
  604. 2332 [153] "D- GEORGETOWN"
  605. 2334 [153]:[153]:[153]
  606. 2335 [133] "ANSWER-";A$
  607. 2380 [139] A$[178]"B" [137] 2392
  608. 2382 [141] 7000
  609. 2384 B[178]0
  610. 2386 [153]:[153]:[153]:[153]:[153]
  611. 2388 [153] "THE RIGHT ANSWER IS B- CHRLESTON"
  612. 2390 [137] 2396
  613. 2392 [141] 6000
  614. 2394 B[178]1
  615. 2396 Y[178]A[170]B
  616. 2398 [141] 5000
  617. 2400 [153] "SO FAR YOU'RE ";Y;" FOR 2"
  618. 2402 [141] 5000
  619. 2404 [153] "LET'S TRY ANOTHER..."
  620. 2405 [129] X[178]1 [164] 1200:[130]
  621. 2406 [141] 5000:[153] "LOAD":[141]8000
  622. 2408 [153] "IN WHAT CITY IS FURMAN AND BOBBY"
  623. 2409 [153] "JONES UNIVERSITIES LOCATED?"
  624. 2410 [153]:[153]:[153]:[153]
  625. 2412 [153] "A- GREENVILLE"
  626. 2413 [153]:[153]
  627. 2414 [153] "B- COLUMBIA"
  628. 2416 [153]:[153]
  629. 2418 [153] "C- MYRTLE BEACH"
  630. 2420 [153]:[153]
  631. 2422 [153] "D- AIKEN"
  632. 2424 [153]:[153]:[153]
  633. 2426 [133] "ANSWER-";A$
  634. 2428 [139] A$[178]"A" [137] 2438
  635. 2430 [141] 7000
  636. 2432 C[178]0
  637. 2434 [153] "THE CORRECT ANSWER IS A- GREENVILLE"
  638. 2436 [137] 2442
  639. 2438 [141] 6000
  640. 2440 C[178]1
  641. 2442 Y[178]A[170]B[170]C
  642. 2446 [141] 5000
  643. 2448 [153] "YOUR SCORE IS NOW";Y;"FOR 3"
  644. 2450 [141] 5000
  645. 2452 [153] "THIS IS THE LAST QUESTION"
  646. 2454 [153] "SO MAKE SURE YOU GET IT RIGHT.."
  647. 2456 [129] X[178]1 [164] 800:[130]
  648. 2458 [141] 5000:[153]"LOAD":[141]8000
  649. 2460 [153] "WHAT IS THE CAPITAL CITY OF"
  650. 2462 [153] "SOUTH CAROLINA?"
  651. 2464 [153]:[153]:[153]:[153]
  652. 2466 [153] "A- CHARLESTON"
  653. 2468 [153]:[153]
  654. 2470 [153] "B- GREENVILLE"
  655. 2472 [153]:[153]
  656. 2474 [153] "C- FLORENCE"
  657. 2476 [153]:[153]
  658. 2478 [153] "D- COLUMBIA"
  659. 2480 [153]:[153]:[153]
  660. 2482 [133] "ANSWER-";A$
  661. 2484 [139] A$[178]"D" [137] 2496
  662. 2486 [141] 7000
  663. 2488 D[178]0
  664. 2489 [153]:[153]:[153]:[153]:[153]
  665. 2490 [153] "THE RIGHT ANSWER IS D- COLUMBIA"
  666. 2491 [129] X[178]1 [164] 2000:[130]
  667. 2492 [137] 2498
  668. 2496 [141] 6000
  669. 2497 D[178]1
  670. 2498 [129] X[178]1 [164] 2000:[130]:[153]:Y[178]A[170]B[170]C[170]D
  671. 2499 [153] "YOUR FINAL SCORE IS";Y;"FOR 4!"
  672. 2500 [129] X[178]1 [164] 2000:[130]
  673. 2502 [137] 1950
  674. 2510 [129] X[178]1 [164] 2500:[130]
  675. 2511 [153] [163]240)"WHAT IS THE STATE CAPITAL OF TENNESSEE?"
  676. 2512 [153]:[153]:[153]:[153]:[153]
  677. 2514 [153] "A- MEMPHIS"
  678. 2516 [153]:[153]
  679. 2518 [153] "B- CHATTANOOGA"
  680. 2520 [153]:[153]
  681. 2522 [153] "C- NASHVILLE"
  682. 2524 [153]:[153]
  683. 2526 [153] "D- JOHNSON CITY"
  684. 2528 [153]:[153]:[153]:[153]
  685. 2530 [133] "ANSWER-";A$
  686. 2532 [139] A$[178]"C"[137] 2544
  687. 2534 [141] 7000
  688. 2536 A[178]0
  689. 2538 [153]:[153]:[153]:[153]:[153]
  690. 2540 [153] "THE RIGHT ANSWER IS C-NASHVILLE."
  691. 2542 [137] 2548
  692. 2544 [141] 6000
  693. 2546 A[178]1
  694. 2548 Y[178]A
  695. 2550 [141] 5000
  696. 2552 [153] "SO FAR YOU'RE";Y;"FOR 1"
  697. 2554 [141] 5000
  698. 2556 [153] "LETS TRY ANOTHER..."
  699. 2558 [129] X[178]1 [164] 2000:[130]
  700. 2560 [153]"LOAD":[141]8000
  701. 2562 [153] "WHAT IS THE LARGEST CITY IN TENNESSEE?"
  702. 2564 [153]:[153]:[153]:[153]
  703. 2566 [153] "A- NASHVILLE"
  704. 2568 [153]:[153]
  705. 2570 [153] "B- MEMPHIS"
  706. 2572 [153]:[153]
  707. 2574 [153] "C- KNOXVILLE"
  708. 2576 [153]:[153]
  709. 2578 [153] "D- CHATTANOOGA"
  710. 2580 [153]:[153]:[153]
  711. 2582 [133] "ANSWER-";A$
  712. 2584 [139] A$[178]"B" [137] 2596
  713. 2586 [141] 7000
  714. 2588 B[178]0
  715. 2590 [153]:[153]:[153]:[153]:[153]
  716. 2592 [153] "THE CORRECT ANSWER IS B- MEMPHIS"
  717. 2594 [137] 2600
  718. 2596 [141] 6000
  719. 2598 B[178]1
  720. 2600 Y[178]A[170]B
  721. 2610 [141] 5000
  722. 2620 [153] "SO FAR YOU'RE";Y;"FOR 2"
  723. 2622 [141] 5000
  724. 2624 [153] "LET'S TRY ANOTHER..."
  725. 2625 [129] X[178]1 [164] 2000:[130]
  726. 2628 [153]"LOAD":[141] 8000
  727. 2630 [153] "WHAT CITY IS FAMOUS FOR NUCLEAR WEAPONS PRODUCTION?"
  728. 2632 [153]:[153]:[153]:[153]
  729. 2634 [153] "A- OAK RIDGE"
  730. 2636 [153]:[153]
  731. 2638 [153] "B- KINGSPORT"
  732. 2640 [153]:[153]
  733. 2642 [153] "C- BRISTOL"
  734. 2644 [153]:[153]
  735. 2646 [153] "D- KNOXVILLE"
  736. 2648 [153]:[153]:[153]
  737. 2650 [133] "ANSWER-";A$
  738. 2652 [139] A$[178]"A" [137] 2664
  739. 2654 [141] 7000
  740. 2656 C[178]0
  741. 2658 [153]:[153]:[153]:[153]:[153]
  742. 2660 [153] "THE RIGHT ANSWER IS  A- OAK RIDGE"
  743. 2662 [137] 2668
  744. 2664 [141] 6000
  745. 2666 C[178]1
  746. 2668 Y[178]A[170]B[170]C
  747. 2669 [141] 5000
  748. 2670 [153] "YOUR SCORE IS NOW";Y;"FOR 3
  749. 2672 GOSUB 5000
  750. 2674 PRINT "THIS IS THE LAST QUESTION "
  751. 2676 PRINT "SO MAKE SURE YOU GET IT RIGHT!"
  752. 2678 FOR X=1 TO 2000:NEXT
  753. 2680 PRINT "[147]":GOSUB8000
  754. 2682 PRINT "NEAR WHAT CITY IS LOOKOUT MOUNTAIN LOCATED?"
  755. 2684 PRINT:PRINT:PRINT:PRINT
  756. 2686 PRINT "A- NASHVILLE"
  757. 2688 PRINT:PRINT
  758. 2690 PRINT "B- PIGEON FORGE"
  759. 2692 PRINT:PRINT
  760. 2694 PRINT "C- GATLINBURG"
  761. 2696 PRINT:PRINT
  762. 2698 PRINT "D- CHATTANOOGA"
  763. 2700 PRINT:PRINT:PRINT
  764. 2702 INPUT "ANSWER-";A$
  765. 2704 IF A$="D" GOTO 2716
  766. 2706 GOSUB 7000
  767. 2708 D=0
  768. 2710 PRINT:PRINT:PRINT:PRINT:PRINT
  769. 2712 PRINT "THE RIGHT ANSWER IS D- CHATTANOOGA"
  770. 2714 GOTO 2720
  771. 2716 GOSUB 6000
  772. 2718 D=1
  773. 2720 PRINT:Y=A+B+C+D
  774. 2722 GOSUB 5000
  775. 2724 PRINT "YOUR FINAL SCORE IS";Y;"FOR 4!"
  776. 2726 FOR X=1  TO 2000:NEXT
  777. 2728 GOTO 1950
  778. 2730 FOR X=1 TO 3300:NEXT
  779. 2740 PRINT TAB(240)"WHAT IS THE STATE CAPITAL OF ALABAMA?"
  780. 2742 PRINT:PRINT:PRINT:PRINT:PRINT
  781. 2744 PRINT "A- MONTGOMERY"
  782. 2746 PRINT:PRINT
  783. 2748 PRINT "B- DOTHAN"
  784. 2750 PRINT:PRINT
  785. 2752 PRINT "C- BIRMINGHAM"
  786. 2754 PRINT:PRINT
  787. 2756 PRINT "D- MOBILE"
  788. 2758 PRINT:PRINT:PRINT:PRINT
  789. 2760 INPUT "ANSWER-";A$
  790. 2762 IF A$="A" GOTO 2774
  791. 2764 GOSUB 7000
  792. 2766 A=0
  793. 2768 PRINT:PRINT:PRINT:PRINT:PRINT
  794. 2770 PRINT "THE CORRECT ANSWER IS  A- MONTGOMERY."
  795. 2772 GOTO 2778
  796. 2774 GOSUB 6000
  797. 2776 A=1
  798. 2778 GOSUB 5000
  799. 2780 PRINT "SO FAR YOU'RE";A;"FOR 1"
  800. 2782 GOSUB 5000
  801. 2784 PRINT "LET'S TRY AGAIN..."
  802. 2786 FOR X=1 TO 2000:NEXT
  803. 2788 PRINT "[147]":GOSUB 8000
  804. 2790 PRINT "WHAT IS THE LARGEST CITY IN ALABAMA?"
  805. 2792 PRINT:PRINT:PRINT:PRINT
  806. 2794 PRINT "A- MONTGOMERY"
  807. 2796 PRINT:PRINT
  808. 2798 PRINT "B- BESSIMER"
  809. 2800 PRINT:PRINT
  810. 2802 PRINT "C- FLORENCE"
  811. 2804 PRINT:PRINT
  812. 2806 PRINT "D- BIRMINGHAM"
  813. 2808 PRINT:PRINT:PRINT
  814. 2810 INPUT "ANSWER-";A$
  815. 2812 IF A$="D" GOTO 2824
  816. 2814 GOSUB 7000
  817. 2816 B=0
  818. 2818 PRINT:PRINT:PRINT:PRINT:PRINT
  819. 2820 PRINT "THE RIGHT ANSWER IS  D- BIRMINGHAM."
  820. 2822 GOTO 2828
  821. 2824 GOSUB 6000
  822. 2826 B=1
  823. 2828 Y=A+B
  824. 2830 GOSUB 5000
  825. 2832 PRINT "YOUR SCORE IS NOW";Y;"FOR 2"
  826. 2834 GOSUB 5000
  827. 2836 PRINT "LETS TRY 2 MORE..."
  828. 2838 FOR X=1 TO 2000:NEXT
  829. 2840 PRINT "[147]":GOSUB8000
  830. 2842 PRINT "WHAT CITY HAS ALABAMA'S ONLY MAJOR"
  831. 2844 PRINT "SEAPORT?"
  832. 2846 PRINT:PRINT:PRINT:PRINT
  833. 2848 PRINT "A- JACKSON"
  834. 2850 PRINT:PRINT
  835. 2852 PRINT "B- MOBILE"
  836. 2854 PRINT:PRINT
  837. 2856 PRINT "C- DOTHAN"
  838. 2858 PRINT:PRINT
  839. 2860 PRINT "D- PASCAGOULA"
  840. 2862 PRINT:PRINT:PRINT
  841. 2864 INPUT "ANSWER-";A$
  842. 2866 IF A$="B" GOTO 2878
  843. 2868 GOSUB 7000
  844. 2870 C=0
  845. 2872 PRINT:PRINT:PRINT:PRINT:PRINT
  846. 2874 PRINT "THE RIGHT ANSWER IS  B- MOBILE"
  847. 2876 GOTO 2882
  848. 2878 GOSUB 6000
  849. 2880 C=1
  850. 2882 GOSUB 5000
  851. 2884 Y=A+B+C
  852. 2886 PRINT "THE SCORE IS NOW";Y;"FOR 3!"
  853. 2888 GOSUB 5000
  854. 2890 PRINT "THIS IS THE LAST QUESTION."
  855. 2892 FOR X=1 TO 2000:NEXT
  856. 2894 PRINT "[147]":GOSUB8000
  857. 2896 PRINT "THIS SHOULD BE EASY...."
  858. 2898 PRINT "WHAT CITY WAS THE FIRST CAPITAL OF"
  859. 2899 PRINT "THE CONFEDERACY IN THE CIVIL WAR?"
  860. 2900 PRINT:PRINT:PRINT:PRINT
  861. 2902 PRINT "A- JACKSON"
  862. 2904 PRINT:PRINT
  863. 2906 PRINT "B- MONTGOMERY"
  864. 2908 PRINT:PRINT
  865. 2910 PRINT "C- GADSDEN"
  866. 2912 PRINT:PRINT
  867. 2914 PRINT "D- BIRMINGHAM"
  868. 2916 PRINT:PRINT:PRINT
  869. 2918 INPUT "ANSWER-";A$
  870. 2920 IF A$="B" GOTO 2932
  871. 2922 GOSUB 7000
  872. 2924 D=0
  873. 2926 PRINT:PRINT:PRINT:PRINT:PRINT
  874. 2928 PRINT "THE RIGHT ANSWER IS  B- MONTGOMERY"
  875. 2930 GOTO 2936
  876. 2932 GOSUB 6000
  877. 2934 D=1
  878. 2936 PRINT:Y=A+B+C+D
  879. 2938 GOSUB 5000
  880. 2940 PRINT "YOUR FINAL SCORE IS";Y;"FOR 4!"
  881. 2945 GOTO 1950
  882. 2950 ON P GOTO 3050,3060,3070,3080,3090,3100
  883. 3000 ON T GOTO 3050,3060,3070,3080,3090,3100
  884. 3050 SX$="GEORGIA"
  885. 3051 PRINT SX$
  886. 3055 RETURN
  887. 3060 SX$="FLORIDA"
  888. 3061 PRINT SX$
  889. 3065 RETURN
  890. 3070 SX$="NORTH CAROLINA"
  891. 3071 PRINT SX$
  892. 3075 RETURN
  893. 3080 SX$="SOUTH CAROLINA"
  894. 3082 PRINT SX$
  895. 3085 RETURN
  896. 3090 SX$="TENNESSEE"
  897. 3092 PRINT SX$
  898. 3095 RETURN
  899. 3100 SX$="ALABAMA"
  900. 3102 PRINT SX$
  901. 3105 RETURN
  902. 5000 FOR X=1 TO 1700
  903. 5010 NEXT X
  904. 5020 PRINT:PRINT:PRINT
  905. 5030 RETURN
  906. 6000 FOR X=1 TO 1000:NEXT
  907. 6005 PRINT"[147]"
  908. 6010 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  909. 6011 FOR X=1 TO 300:NEXT
  910. 6015 FOR X=1 TO 20
  911. 6020 PRINT TAB(8)"[130]*";
  912. 6030 NEXT X
  913. 6035 PRINT "[130]*"
  914. 6040 PRINT TAB(8)"[130]*";TAB(28)"*"
  915. 6050 PRINT TAB(8)"[130]*"TAB(16)"[144]RIGHT[155]"TAB(28)"*"
  916. 6060 PRINT TAB(8)"[130]*" TAB(28)"*"
  917. 6070 FOR X=1 TO 20
  918. 6080 PRINT TAB(8)"[130]*";
  919. 6090 NEXT X
  920. 6100 PRINT "[130]*";
  921. 6101 FOR Y=1 TO 150:NEXT
  922. 6102 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][145][145]     ";
  923. 6103 FOR X=1 TO 150:NEXT
  924. 6108 FOR Z=1 TO 7
  925. 6110 PRINT"[144][157][157][157][157][157]RIGHT[155]";
  926. 6115 FOR X=1 TO 150:NEXT
  927. 6120 PRINT"[157][157][157][157][157]     ";
  928. 6130 FOR Y=1 TO 150:NEXT
  929. 6140 NEXT Z
  930. 6190 PRINT:PRINT:PRINT:PRINT:PRINT
  931. 6195 FOR X=1 TO 1000:NEXT
  932. 6200 PRINT TAB(10)"VERY GOOD, ";NA$;"!"
  933. 6225 RETURN
  934. 7000 FOR X=1 TO 1000:NEXT
  935. 7005 PRINT"[147]"
  936. 7010 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  937. 7011 FOR X=1 TO 300:NEXT
  938. 7015 FOR X=1 TO 20
  939. 7020 PRINT TAB(8)"[130]*";
  940. 7030 NEXT X
  941. 7035 PRINT "[130]*"
  942. 7040 PRINT TAB(8)"[130]*";TAB(28)"*"
  943. 7050 PRINT TAB(8)"[130]*"TAB(16)"[144]WRONG[155]"TAB(28)"*"
  944. 7060 PRINT TAB(8)"[130]*" TAB(28)"*"
  945. 7070 FOR X=1 TO 20
  946. 7080 PRINT TAB(8)"[130]*";
  947. 7090 NEXT X
  948. 7100 PRINT "[130]*";
  949. 7101 FOR Y=1 TO 150:NEXT
  950. 7102 PRINT "[157][157][157][157][157][157][157][157][157][157][157][157][157][145][145]     ";
  951. 7103 FOR X=1 TO 150:NEXT
  952. 7108 FOR Z=1 TO 7
  953. 7110 PRINT"[144][157][157][157][157][157]WRONG[155]";
  954. 7115 FOR X=1 TO 150:NEXT
  955. 7120 PRINT"[157][157][157][157][157]     ";
  956. 7130 FOR Y=1 TO 150:NEXT
  957. 7140 NEXT Z
  958. 7190 PRINT:PRINT:PRINT:PRINT:PRINT
  959. 7195 FOR X=1 TO 1000:NEXT
  960. 7200 RETURN
  961. 7210 END
  962. 8000 FOR X=1 TO 1200:NEXT:RETURN
  963. 9000 POKE 646,6:POKE53280,7:POKE53281,7:PRINT"[147]":FOR X=1 TO 1000:NEXT
  964. 9005 FOR X=1 TO 39
  965. 9010 PRINT"[191]";
  966. 9015 FOR Y=1 TO 10:NEXT Y
  967. 9020 NEXT X
  968. 9030 FOR X=1 TO 22
  969. 9040 PRINT TAB(40)"[157][157][191]"
  970. 9050 FOR Y=1 TO 10:NEXT Y
  971. 9060 NEXT X
  972. 9070 FOR X=1 TO 39
  973. 9080 PRINT"[157][157][191]";                      
  974. 9090 FOR Y=1 TO 10:NEXT Y
  975. 9095 NEXT X
  976. 9096 PRINT "[157][191][157]";
  977. 9100 FOR X=1 TO 21
  978. 9110 PRINT "[145][191][145]"
  979. 9120 FOR Y =1 TO 10:NEXT Y
  980. 9130 NEXT X
  981. 9140 FOR D=1 TO 350:NEXT
  982. 9160 PRINT TAB(204)"[191]";
  983. 9170 FOR X=1 TO 28
  984. 9175 PRINT"[191]";
  985. 9180 FOR Y=1 TO 10:NEXTY
  986. 9190 NEXT X
  987. 9195 PRINT"[191]"
  988. 9200 PRINT TAB(33)"[191]"
  989. 9210 PRINT TAB(33)"[191]"
  990. 9220 PRINT TAB(33)"[191]"
  991. 9230 PRINT TAB(33)"[191]";
  992. 9240 FOR X=1 TO 30
  993. 9250 PRINT"[157][191][157]";
  994. 9255 FOR Y=1 TO 10:NEXT Y
  995. 9260 NEXT X
  996. 9270 FOR X= 1 TO 3
  997. 9280 PRINT"[145][191][157]";
  998. 9290 FOR Y=1 TO 10: NEXT Y
  999. 9300 NEXT X
  1000. 9305 FOR X=1 TO 350:NEXT
  1001. 9310 PRINT TAB(46)" ANDING'S NOODLE PRESENTS"
  1002. 9315 FOR X=1 TO 2000:NEXT
  1003. 9320 PRINT TAB(252)" "
  1004. 9330 PRINT TAB(15)"*[157]";
  1005. 9335 FOR J=1 TO 8
  1006. 9340 FOR X=1 TO 7
  1007. 9350 PRINT" *[157]";
  1008. 9360 FOR Y=1 TO 10:NEXT Y
  1009. 9370 NEXT X
  1010. 9375 PRINT"[157]* [157]";
  1011. 9380 FOR X=1 TO 6
  1012. 9390 PRINT"[157][157]* [157]";
  1013. 9400 FOR Y=1 TO 10:NEXT Y
  1014. 9410 NEXT X
  1015. 9415 READ A$
  1016. 9416 PRINT"[157][145]";A$;:PRINT"";
  1017. 9419 NEXT J
  1018. 9420 FOR X=1 TO 2800:NEXT
  1019. 9425 POKE 53280,14:POKE 53281,6:POKE 646,15
  1020. 9430 RETURN
  1021. 10000 PRINT "[147]":FOR X=1 TO 1000:NEXT
  1022. 10010 PRINT:PRINT:PRINT
  1023. 10015 PRINT"PLEASE GIVE ALL 'NUMBER' ANSWERS WITH"
  1024. 10020 PRINT"A WHOLE NUMBER LIKE  0   1   2  ETC."
  1025. 10030 PRINT:PRINT:PRINT
  1026. 10040 PRINT"PLEASE GIVE ALL  YES/NO  ANSWERS WITH"
  1027. 10050 PRINT"A FULL   YES  OR  NO"
  1028. 10060 PRINT:PRINT:PRINT
  1029. 10070 PRINT"ALL 'CITY' QUESTIONS REFER TO CITES"
  1030. 10080 PRINT"OF MEDIUM TO LARGE SIZE IN GEORGIA,"
  1031. 10090 PRINT"FLORIDA, NORTH CAROLINA, ALABAMA,"
  1032. 10095 PRINT"TENNESSEE, AND SOUTH CAROLINA."
  1033. 10096 PRINT:PRINT"(PLUS SOME OTHER SMALLER CITIES IN THE"
  1034. 10097 PRINT" ATLANTA AREA)"
  1035. 10100 PRINT:PRINT:PRINT:PRINT"WHENEVER YOU'RE READY, PRESS THE SPACE  BAR."
  1036. 10110 GET A$:IF A$="" THEN GOTO 10110
  1037. 10120 IF A$=CHR$(32)THEN GOTO 10140
  1038. 10130 GOTO 10110
  1039. 10140 FOR X=1 TO 1000:NEXT X
  1040. 10150 RETURN
  1041.